home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / fido / RFS275.lha / rexx / !DLG.rfh next >
Text File  |  1994-09-25  |  240b  |  9 lines

  1.  
  2. get_fd:
  3. FDesc.ReqCount.SentCount=subword(arg(2),8) 
  4. fn=translate(FDesc.ReqCount.SentCount,"",'1b'x)
  5. if ~open('dx',fn,'r') then return ""
  6. tmpbuf=readch('dx',word(statef(fn),2))
  7. call close('dx')
  8. return substr(tmpbuf,lastpos('00'x,tmpbuf)+1)
  9.